home *** CD-ROM | disk | FTP | other *** search
/ PC & Mediji 1997 October / PCM_9710.iso / programi / cakewalk / ad.1 / Major Chord.cal < prev    next >
Text File  |  1997-05-15  |  533b  |  22 lines
  1. ;; Major Chord.cal
  2. ;;
  3. ;; Treats each note as the root of a major chord, and creates that chord:
  4. ;; For each note event, adds two note events with same time, vel, and dur
  5. ;; but a major third and a perfect fifth higher.
  6. ;;
  7.  
  8. (do
  9.     (include "need20.cal")    ; Require version 2.0 or higher of CAL
  10.  
  11.     (forEachEvent
  12.         (if (== Event.Kind NOTE)
  13.            (do
  14.              (insert Event.Time Event.Chan NOTE (+ Note.Key 4) Note.Vel Note.Dur)
  15.              (insert Event.Time Event.Chan NOTE (+ Note.Key 7) Note.Vel Note.Dur)
  16.            )
  17.         )
  18.     )
  19. )
  20.  
  21.  
  22.